home *** CD-ROM | disk | FTP | other *** search
- MODULE Acc;
-
- IMPORT appl, evnt, form, graf, menu;
- IMPORT TOS;
-
- VAR
- ApplId, MenuId: SHORTINT;
- AccName: ARRAY[0..20] OF CHAR;
- Msg: evnt.tMsg;
-
- BEGIN
-
- ApplId := appl.init ();
- graf.mouseform (graf.Arrow);
-
- IF TOS.IsApp THEN
- IF form.alert (1, "[0][ Dieses Programm läßt sich | auch als Accessory starten! ][OK]") = 0 THEN END;
- ELSE
- AccName := " Acc";
- MenuId := menu.register (ApplId, AccName);
- IF MenuId > -1 THEN
- LOOP
- evnt.mesag (Msg);
- IF Msg.type = evnt.Open THEN
- IF form.alert (1, "[0][ Dieses Accessory läßt sich | auch als Programm starten! ][OK]") = 0 THEN END;
- END;
- END;
- ELSE
- LOOP
- evnt.timer (10000);
- END;
- END;
- END;
- appl.exit;
-
- END Acc.
-
-
-